Attribute VB_Name = "Directorio"
Option Explicit
Public sNomExe As String

Function GetDirec(ByRef CdArchivo As CommonDialog, LocRem As String) As String

    Dim Pos As Integer
    Dim PosFinal As Integer
    Dim Titulo  As String
    Dim Path As String
    
    If Trim(LocRem) = "LOCAL" Then
        Titulo = "Seleccione el directorio LOCAL"
        Path = App.Path
    Else
        Titulo = "Seleccione el directorio REMOTO"
        Path = "\\publico"
    End If
    
    CdArchivo.InitDir = App.Path
    CdArchivo.fileName = sNomExe
    CdArchivo.DialogTitle = Titulo
    CdArchivo.ShowOpen

    GetDirec = Mid(CdArchivo.fileName, 1, InStrRev(CdArchivo.fileName, "\", Len(CdArchivo.fileName)) - 1)
    

End Function
